home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / asm / Tandem.lha / Tandem / Teaching / 71.asm < prev    next >
Encoding:
Assembly Source File  |  1999-08-21  |  1.0 KB  |  43 lines
  1. * 71.asm  TLpassword     version 0.01     8.6.99
  2.  
  3.  
  4.  include 'Front.i'
  5.  
  6.  
  7. strings: dc.b 0
  8.  dc.b 'Cancelled',0 ;1
  9.  dc.b 'Error: out of memory',0 ;2
  10.  ds.w 0
  11.  
  12.  
  13. ; TLpassword puts up a little requester to get a password. You can adjust
  14. ; its position (with xxp_ReqTop & xxp_ReqLeft) to place itself on a
  15. ; window where it's required. This program does not encrypt the input
  16. ; internally, so it is a fairly naive sort of routine.
  17.  
  18.  
  19. * demonstrate TLPassword
  20. Program:
  21.  TLwindow #-1              ;set up
  22.  beq Pr_quit               ;bad if can't
  23.  
  24.  TLpassword #6             ;get password (6 characters maximum)
  25.  beq.s Pr_bad2             ;go report if error
  26.  cmp.b #$1B,d0
  27.  bne.s Pr_rept             ;go report password if ok
  28.  TLstrbuf #1
  29.  bra.s Pr_rept             ;go report if cancel
  30.  
  31. Pr_bad1:                   ;error 1: out of mem (report in monitor)
  32.  TLbad #2
  33.  bra.s Pr_quit
  34.  
  35. Pr_bad2:                   ;error 2: TLpassword failed - error to buff
  36.  TLerror
  37.  
  38. Pr_rept:                   ;report password / cancel / error
  39.  TLreqchoose
  40.  
  41. Pr_quit:
  42.  rts
  43.